#!/usr/bin/perl

use Malus;

$func = shift;
$amount = shift;

Malus::creditall($func, $amount);
